home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 42 / Amiga Format AFCD42 (Issue 126, Aug 1999).iso / -serious- / comms / other / ambos-update / update < prev    next >
Text File  |  1999-05-17  |  22KB  |  833 lines
  1. FailAt 21
  2. ; $VER: AmBoS-Updater 1.1 (05.05.99)
  3.  
  4. Echo "H=== AmBoS-Updater, © 1999 AmBoS-Team, written by L.Maschmann*n"
  5. Echo "Checkliste:*n"
  6. Echo "- Aktualisierung von AmBoS und ZConnect-Modul"
  7. Echo "- Sicherheitskopien werden automatisch erzeugt"
  8. Echo "- Konfigurationsdateien werden nicht überschrieben"
  9. Echo "- Backups werden im Verzeichnis 'Backup:Update.x' abgelegt"
  10. Echo "- AmBoS sollte vor dem Ausführen beendet werden"
  11. Echo "- Assigns BBS: und Backup: müssen gesetzt sein"
  12. Echo "- AmBoS-Libs an 'falschen' Orten werden umbenannt"
  13. Ask "*nFortsetzen und Aktualisierung beginnen? y=ja, n=nein"
  14. If not warn
  15.  Quit 20
  16. EndIf
  17.  
  18. Assign >NIL: BBS: exists
  19. If warn
  20.  Echo "Assign BBS: nicht gefunden!"
  21.  Wait 5
  22.  Quit 20
  23. EndIf
  24.  
  25. Assign >NIL: Backup: exists
  26. If warn
  27.  Echo "Assign Backup: nicht gefunden!"
  28.  Wait 5
  29.  Quit 20
  30. EndIf
  31.  
  32. Status >NIL: com=BBS:AmBoS
  33. If not warn
  34.  Echo "AmBoS noch aktiv. Bitte AmBoS beenden!"
  35.  Wait 5
  36.  Quit 20
  37. EndIf
  38.  
  39. Status >NIL: com=bbs:modules/zconnect.mod
  40. If not warn
  41.  Echo "AmBoS noch aktiv. Bitte AmBoS beenden!"
  42.  Wait 5
  43.  Quit 20
  44. EndIf
  45.  
  46. Set value "0"
  47.  
  48. Lab GetLoop
  49. If exists Backup:Update.$value
  50.  Set value `eval $value + 1`
  51.  Skip GetLoop back
  52. EndIf
  53. Set back Backup:Update.$value
  54. UnSet value
  55. MakeDir $back
  56.  
  57. Avail >NIL: flush
  58.  
  59. Echo "*nBackup-Verzeichnis: '$back'*n"
  60.  
  61. Echo "--- Sichere Konfigurationsdateien"
  62.  
  63. MakeDir $back/Setup
  64. If exists BBS:Setup
  65.  Copy BBS:Setup/#? $back/Setup all quiet
  66. EndIf
  67. If exists BBS:Netz
  68.  Copy BBS:Netz/ZConnectAreaBretter#? $back/Setup quiet
  69. EndIf
  70.  
  71. Echo "--- Überprüfe Verzeichnisstruktur"
  72.  
  73. If not exists BBS:Netz
  74.  MakeDir BBS:Netz
  75. EndIf
  76.  
  77. If not exists BBS:Netz/AutoPOINT
  78.  MakeDir BBS:Netz/AutoPOINT
  79. EndIf
  80.  
  81.  
  82. If not exists BBS:Setup
  83.  MakeDir BBS:Setup
  84. EndIf
  85.  
  86. If not exists BBS:AutoPOINTs
  87.  MakeDir BBS:AutoPoints
  88. EndIf
  89.  
  90. If not exists BBS:Texte
  91.  MakeDir BBS:Texte
  92. EndIf
  93. If not exists BBS:Texte/deutsch
  94.  MakeDir BBS:Texte/deutsch
  95. EndIf
  96. If not exists BBS:Texte/english
  97.  MakeDir BBS:Texte/english
  98. EndIf
  99. If not exists BBS:Texte/français
  100.  MakeDir BBS:Texte/français
  101. EndIf
  102.  
  103. If not exists BBS:Protokolle
  104.  MakeDir BBS:Protokolle
  105. EndIf
  106.  
  107. If not exists BBS:Netz/Texte
  108.  MakeDir BBS:Netz/Texte
  109. EndIf
  110.  
  111.  
  112. If not exists BBS:OnlineMenu
  113.  MakeDir BBS:OnlineMenu
  114. EndIf
  115. If not exists BBS:OnlineMenu/Rahmen
  116.  MakeDir BBS:OnlineMenu/Rahmen
  117. EndIf
  118. If not exists BBS:OnlineMenu/Hintergründe
  119.  MakeDir BBS:OnlineMenu/Hintergründe
  120. EndIf
  121. If not exists BBS:OnlineMenu/Hilfe
  122.  MakeDir BBS:OnlineMenu/Hilfe
  123. EndIf
  124.  
  125. If not exists BBS:Modules
  126.  MakeDir BBS:Modules
  127. EndIf
  128.  
  129. If not exists BBS:Libs
  130.  MakeDir BBS:Libs
  131. Endif
  132.  
  133. Echo "--- Kopiere SystemNachrichten"
  134.  
  135. If exists BBS:Texte/SystemNachrichten.txt
  136.  Copy BBS:Texte/SystemNachrichten.txt $back
  137.  Protect BBS:Texte/SystemNachrichten.txt wd add
  138. EndIf
  139. Copy AmBoS/Texte/SystemNachrichten.txt BBS:Texte
  140.  
  141.  
  142. Echo "--- Kopiere AmBoS und AmBoS.info"
  143.  
  144. If exists BBS:AmBoS
  145.  Copy BBS:AmBoS $back
  146.  Protect BBS:AmBoS wd add
  147. EndIf
  148. Copy AmBoS/AmBoS BBS:
  149.  
  150. If exists BBS:AmBoS.info
  151.  Copy BBS:AmBoS.info $back
  152.  Protect BBS:AmBoS.info wd add
  153. EndIf
  154. Copy AmBoS/AmBoS.info BBS:
  155.  
  156. If exists SYS:WBStartup/AmBoS
  157.  Copy SYS:WBStartup/AmBoS $back
  158.  Protect SYS:WBStartup/AmBoS wd add
  159.  Copy AmBoS/AmBoS SYS:WBStartup
  160. EndIf
  161.  
  162. If exists SYS:WBStartup/AmBoS.info
  163.  Copy SYS:WBStartup/AmBoS.info $back
  164.  Protect SYS:WBStartup/AmBoS.info wd add
  165.  Copy AmBoS/AmBoS.info SYS:WBStartup
  166. EndIf
  167.  
  168.  
  169. Echo "--- Kopiere AmBoS-Handler"
  170.  
  171. If exists BBS:AmBoS-Handler
  172.  Copy BBS:AmBoS-Handler $back
  173.  Protect BBS:AmBoS-Handler wd add
  174. EndIf
  175. Copy AmBoS/AmBoS-Handler BBS:
  176.  
  177. Echo "--- Kopiere AmBoS-Anleitung-Loader"
  178.  
  179. If exists BBS:AmBoS-Anleitung
  180.  Protect BBS:AmBoS-Anleitung wd add
  181.  Copy BBS:AmBoS-Anleitung $back
  182. EndIf
  183. Copy AmBoS/AmBoS-Anleitung BBS:
  184. Protect BBS:AmBoS-Anleitung s add
  185.  
  186. If exists BBS:AmBoS-Anleitung.info
  187.  Protect BBS:AmBoS-Anleitung.info wd add
  188.  Copy BBS:AmBoS-Anleitung.info $back
  189. EndIf
  190. Copy AmBoS/AmBoS-Anleitung.info BBS:
  191.  
  192. Echo "--- Erstelle neue GuideFiles-Struktur"
  193.  
  194. MakeDir $back/GuideFiles
  195.  
  196. If exists BBS:Guidefiles
  197.  Copy BBS:Guidefiles/#? $back/Guidefiles all quiet
  198.  Delete BBS:Guidefiles/#? all force quiet
  199. Else
  200.  MakeDir BBS:Guidefiles
  201. EndIf
  202. Copy AmBoS/Guidefiles/#? BBS:Guidefiles all quiet
  203.  
  204. If exists BBS:Guidefiles.info
  205.  Protect BBS:Guidefiles.info wd add
  206. EndIf
  207. Copy AmBoS/Guidefiles.info BBS:
  208.  
  209.  
  210. Echo "--- Kopiere Sprachenkataloge"
  211.  
  212. MakeDir $back/Catalogs
  213.  
  214. If exists BBS:Catalogs
  215.  Copy BBS:Catalogs/#? $back/Catalogs all quiet
  216.  Delete BBS:Catalogs/#? all force quiet
  217. Else
  218.  MakeDir BBS:Catalogs
  219. EndIf
  220. Copy AmBoS/Catalogs/#? BBS:Catalogs all quiet
  221.  
  222. Echo "--- Kopiere AmBoS-Libraries"
  223.  
  224. MakeDir $back/Libs
  225.  
  226. If exists BBS:Libs/ambosgui.library
  227.  Copy BBS:Libs/ambosgui.library $back/Libs
  228.  Protect BBS:Libs/ambosgui.library wd add
  229. EndIf
  230. Copy AmBoS/Libs/ambosgui.library BBS:Libs
  231.  
  232. If exists LIBS:ambosgui.library
  233.  Echo "Benenne LIBS:ambosgui.library um!"
  234.  Rename LIBS:ambosgui.library LIBS:$ambosgui.library$
  235.  Filenote LIBS:$ambosgui.library$ "Diese Library gehört eigentlich nach BBS:Libs!"
  236. EndIf
  237.  
  238. If exists BBS:Libs/amboscgi.library
  239.  Copy BBS:Libs/amboscgi.library $back/Libs
  240.  Protect BBS:Libs/amboscgi.library wd add
  241. EndIf
  242. Copy AmBoS/Libs/amboscgi.library BBS:Libs
  243.  
  244. If exists LIBS:amboscgi.library
  245.  Echo "Benenne LIBS:amboscgi.library um!"
  246.  Rename LIBS:amboscgi.library LIBS:$amboscgi.library$
  247.  Filenote LIBS:$amboscgi.library$ "Diese Library gehört eigentlich nach BBS:Libs!"
  248. EndIf
  249.  
  250.  
  251. If exists BBS:Libs/AutoPOINT.library
  252.  Copy BBS:Libs/AutoPOINT.library $back/Libs
  253.  Protect BBS:Libs/AutoPOINT.library wd add
  254. EndIf
  255. Copy AmBoS/Libs/AutoPoint.library BBS:Libs
  256.  
  257. If exists LIBS:AutoPOINT.library
  258.  Echo "Benenne LIBS:AutoPOINT.library um!"
  259.  Rename LIBS:AutoPOINT.library LIBS:$AutoPOINT.library$
  260.  Filenote LIBS:$AutoPOINT.library$ "Diese Library gehört eigentlich nach BBS:Libs!"
  261. EndIf
  262.  
  263. If exists BBS:Libs/ZConnect.library
  264.  Copy BBS:Libs/ZConnect.library $back/Libs
  265.  Protect BBS:Libs/ZConnect.library wd add
  266. EndIf
  267. Copy AmBoS/Libs/ZConnect.library BBS:Libs
  268.  
  269. If exists LIBS:ZConnect.library
  270.  Echo "Benenne LIBS:ZConnect.library um!"
  271.  Rename LIBS:ZConnect.library LIBS:$ZConnect.library$
  272.  Filenote LIBS:$ZConnect.library$ "Diese Library gehört eigentlich nach BBS:Libs!"
  273. EndIf
  274.  
  275. Echo "--- Kopiere Maps-Autopoints"
  276.  
  277. If exists BBS:Netz/AutoPoint/EditNewBrettListe
  278.  Copy BBS:Netz/AutoPoint/EditNewBrettListe $back
  279.  Protect BBS:Netz/AutoPoint/EditNewBrettListe wd add
  280. EndIf
  281. Copy AmBoS/Netz/AutoPoint/EditNewBrettListe BBS:Netz/AutoPoint
  282.  
  283. If exists BBS:Netz/AutoPoint/EditNewHelpTxt
  284.  Copy BBS:Netz/AutoPoint/EditNewHelpTxt $back
  285.  Protect BBS:Netz/AutoPoint/EditNewHelpTxt wd add
  286. EndIf
  287. Copy AmBoS/Netz/AutoPoint/EditNewHelpTxt BBS:Netz/AutoPoint
  288.  
  289. Echo "--- Kopiere System-Libraries"
  290.  
  291. If exists LIBS:BBS.library
  292.  Copy LIBS:BBS.library $back/Libs
  293.  Protect LIBS:BBS.library wd add
  294. EndIf 
  295. Copy Libs/BBS.library LIBS:
  296.  
  297. If exists BBS:Libs/BBS.library
  298.  Echo "Benenne BBS:Libs/BBS.library um!"
  299.  Rename BBS:Libs/BBS.Library BBS:Libs/$BBS.library$
  300.  Filenote BBS:Libs/$BBS.library$ "Diese Library gehört eigentlich nach LIBS:!"
  301. EndIf
  302.  
  303. If exists LIBS:asyncio.library
  304.  Copy LIBS:asyncio.library $back/Libs
  305.  Protect LIBS:asyncio.library wd add
  306. EndIf
  307. Copy Libs/asyncio.library LIBS:
  308.  
  309. If exists BBS:Libs/asyncio.library
  310.  Echo "Benenne BBS:Libs/asyncio.library um!"
  311.  Rename BBS:Libs/asyncio.library BBS:Libs/$asyncio.library$
  312.  Filenote BBS:Libs/$asyncio.library$ "Diese Library gehört eigentlich nach LIBS:!"
  313. EndIf
  314.  
  315. Echo "--- Kopiere System-Fonts"
  316.  
  317. MakeDir $back/Fonts
  318.  
  319. If exists FONTS:ambos.font
  320.  Copy FONTS:ambos.font $back/Fonts
  321.  Delete FONTS:ambos.font force quiet
  322. EndIf
  323. MakeDir $back/Fonts/ambos
  324. If exists FONTS:ambos
  325.  Copy FONTS:ambos/#? $back/Fonts/ambos all quiet
  326.  Delete FONTS:ambos all force quiet
  327. EndIf
  328. Copy Fonts/#? FONTS: all quiet
  329.  
  330. Echo "--- Kopiere ZConnect.mod"
  331.  
  332. If exists BBS:Modules/ZConnect.mod
  333.  Copy BBS:Modules/ZConnect.mod $back
  334.  Protect BBS:Modules/ZConnect.mod wd add
  335. EndIf
  336. Copy AmBoS/Modules/ZConnect.mod BBS:Modules
  337.  
  338. If exists BBS:Modules/ZNetz.mod
  339.  Echo "Verschiebe ZNetz.mod nach $back."
  340.  Copy BBS:Modules/ZNetz.mod $back
  341.  Delete BBS:Modules/ZNetz.mod force quiet
  342. EndIf
  343.  
  344. Echo "--- Kopiere ZConnect_Editor"
  345.  
  346. If exists BBS:ZConnect_Editor
  347.  Copy BBS:ZConnect_Editor $back
  348.  Protect BBS:ZConnect_Editor wd add
  349. EndIf
  350. Copy AmBoS/ZConnect_Editor BBS:
  351.  
  352. If exists BBS:ZConnect_Edito